home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / f.aut < prev    next >
Text File  |  1991-10-18  |  1KB  |  71 lines
  1.  
  2. SEND "GO $60\r",1
  3.  
  4. LABEL F
  5. LOOK
  6.  CASE "－保守作業の為"
  7.   GOTO E
  8.  CASE "◆現在このフォーラムは"
  9.   GOTO E
  10.  CASE "コマンドを入力して"
  11.   LOOK
  12.    CASE "^J＞"
  13.    CASE ">"
  14.   FREE
  15.   ECHO "^G正しいフォーラム名を入力すれば立ち直ります(例：GO FHAND)＞"
  16.   GOTO F
  17.  CASE "^J＜"
  18.   LOOK
  19.    CASE "^JFORUM>"
  20.    CASE "^J＞"
  21.     CALL OPT
  22.    CASE "^J1:フォーラム概要"
  23.     CALL NYUKAI
  24.   FREE
  25. FREE
  26.  
  27. IF ($66=="UST" || $66=="ust") || ($66=="U" || $66=="u")
  28.  DO UST
  29. ENDIF
  30. $66=""
  31. END
  32.  
  33. PROC OPT
  34. SEND "OPT\r",1
  35. WAIT "^J＞"
  36. SEND "1\r",1
  37. WAIT "^J："
  38. SEND "2\r",1
  39. WAIT "^J＞"
  40. ENDPROC
  41.  
  42. PROC NYUKAI
  43. WAIT "^J＞"
  44. ECHO "^G入会手続きを行います ＞"
  45. SEND "3\r",1
  46. WAIT "^J氏名"
  47. WAIT "^J："
  48. SEND "$7\r",1
  49. WAIT "^J確認"
  50. WAIT "^J："
  51. SEND "1\r",1
  52. WAIT "^J登録"
  53. WAIT "^J："
  54. SEND "1\r",1
  55. WAIT "^J＞"
  56. SEND "SET MENU OFF\r",1
  57. LOOK
  58.  CASE "^J＞"
  59.  CASE ">"
  60. FREE
  61. DO TOROKU
  62. DO RC
  63. ENDPROC
  64.  
  65. LABEL E
  66. $200="A"
  67. WAIT "^J＞"
  68. ECHO "^Gゲロゲロ、しょうがねえなあ\r"
  69. END
  70.  
  71.